
test.factorSubset <- function() {

    f <- factor(c("Yes", "No"))
    f <- f[, drop=TRUE]
}
